home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / dlg / FSS_1_0.lha / FSS_1.0 / FSS next >
Text File  |  1995-09-02  |  2KB  |  100 lines
  1. /*
  2. ** File SIG Selector
  3. ** by Vernon Dale Frameli
  4. ** Awesome Ami BBS
  5. ** +1-512-443-4187
  6. **
  7. ** $VER: File SIG Selector v1.0 2-Sep-95
  8. **
  9. ** FSS will select the appropriate File SIG based on the Users
  10. ** pre-defined Computer type.  You are permitted to modify this program
  11. ** in whatever way you see fit, as long as you:
  12. **
  13. ** 1) Do not remove the original authors name and BBS information.
  14. ** 2) Do not distribute modified versions without changing the version
  15. **    number, taking credit, and responsibility, for those modifications.
  16. **
  17. ** Usage:
  18. **
  19. **  rx Doors:FSS/FSS %Computer
  20. **
  21. ** Set this up in your main menu as a replacement for FILE_MAIN, then
  22. ** modify the Computer types and SIG numbers to match your BBS.
  23. **
  24. */
  25.   
  26. parse arg computer
  27.  
  28. signal on error
  29. signal on syntax
  30. signal on ioerr
  31.  
  32. exten = left(computer,3)
  33.  
  34. /*
  35. ** Amiga
  36. */
  37.  
  38. if upper(exten) = 'AMI' then do
  39.         address command 'DLG:File -s 1 -t'
  40.         signal endprog
  41. end
  42.  
  43. /*
  44. ** Atari
  45. */
  46.  
  47. if upper(exten) = 'ATA' then do
  48.         address command 'DLG:File -s 5 -t'
  49.         signal endprog
  50. end
  51.  
  52. /*
  53. ** C=64
  54. */
  55.  
  56. if upper(exten) = 'C=6' then do
  57.         address command 'DLG:File -s 10 -t'
  58.         signal endprog
  59. end
  60.  
  61. /*
  62. ** Macintosh
  63. */
  64.  
  65. if upper(exten) = 'MAC' then do
  66.         address command 'DLG:File -s 15 -t'
  67.         signal endprog
  68. end
  69.  
  70. /*
  71. ** NeXT
  72. */
  73.  
  74. if upper(exten) = 'NEX' then do
  75.         address command 'DLG:File -s 20 -t'
  76.         signal endprog
  77. end
  78.  
  79. /*
  80. ** PC
  81. */
  82.  
  83. if upper(exten) = 'PC ' then do
  84.         address command 'DLG:File -s 25 -t'
  85.         signal endprog
  86. end
  87.  
  88. /*
  89. ** Other (Probably a PC Clone)
  90. */
  91.  
  92. if upper(exten) = 'OTH' then do
  93.         address command 'DLG:File -s 25 -t'
  94.         signal endprog
  95. end
  96.  
  97. endprog:
  98. exit
  99.  
  100.